library(ggplot2)
library(dplyr)
library(stringr)
library(scales)
library(patchwork)
library(ggrepel)
library(data.table)
library(readr)

meta<-read.table('./Source data/meta.txt',header = T,row.names = 1)
expr<-readRDS(file = './Source data/expr.rds')
ft<-'A1BG'
str(expr)
expr.ft<-as.data.frame(expr[ft,])
expr.ft<-cbind(expr.ft,meta)
expr.ft<-mutate(expr.ft,gene=ft)
colnames(expr.ft)[1]<-'expr'
pal1<-read.table('./Source data/pal1.txt')[,1]

head(expr.ft)
save(expr.ft, file = "A1BG.RData")
